10 POKE 53280,15:POKE 53281,15
20 IF X=1 THEN GOTO40:REM FLAG X PREVENTS RELOADING IN LINE 30
30 X=1:LOAD "0:ML BASE.OBJ",8,1
40 INPUT "[147]HOW MANY ENTRIES";N:N=N-1:PRINT"[144]";
50 ND%=N:DIM RP%(N+2),N$(1,N),D(N)
60 FOR I=0 TO N:FOR K=0 TO 1
70 IF K=0 THEN PRINT "NAME?
80 [139] K[178]1 [167] [153] "ADDRESS?"
90 [133] N$(K,I)
100 [130] K
110 [133] "SALARY";D(I)
120 [130] I
130 RP(0)[178]0:[133]"SORT OR SEARCH";S$
140 [139] S$[178]"SORT" [167]170
150 [139] S$[178]"SEARCH" [167]330
160 [137]130
170 [133] "SORT BY NAME, ADDRESS, OR SALARY";Q$
180 [133] "A OR D";AD$
190 [139] Q$[179][177]"NAME" [167]230
200 [139] AD$[178]"A" [167] X[178]0:[141]490
210 [139] AD$[178]"D" [167] X[178]0:[141]500
220 [137]300
230 [139] Q$[179][177]"ADDRESS" [167]270
240 [139] AD$[178]"A" [167] X[178]1:[141]490
250 [139] AD$[178]"D" [167] X[178]1:[141]500
260 [137]300
270 [139] Q$[179][177]"SALARY" [167]170
280 [139] AD$[178]"A" [167] [141]510
290 [139] AD$[178]"D" [167] [141]520
300 [153]"LOADSTOP":[129]I[178]0 [164] N: [129]K[178]0 [164] 1:[153]N$(K,I),:[130] K:[153]D(I)
310 [153]:[130] I
320 [137]580
330 [133] "SEARCH NAME, ADDRESS OR SALARY";NA$
340 [139] NA$[179][177]"NAME" [167]370
350 [133] "WHAT NAME";SR$:X[178]0:[141]540
360 [137]450
370 [139] NA$[179][177]"ADDRESS" [167]400
380 [133] "WHAT ADDRESS";SR$:X[178]1:[141]540
390 [137]450
400 [133] "WHAT SALARY $";SR
410 [133] "H,L OR E";EQ$
420 [139] EQ$[178]"E" [167] [141]570
430 [139] EQ$[178]"H" [167] [141]550
440 [139] EQ$[178]"L" [167] [141]560
450 A[178]RP%(0): [139] A[178]0 [167] [153] "NOT FOUND":[137]580
460 [153]"LOADSTOP":[129]I[178]1[164]A:B[178]RP%(I):[129] K[178]0 [164] 1:[153] N$(K,B),:[130] K:[153] D(B)
470 [153]:[130] I:[137]580
480 [143] ***SORTS***
490 [151] 828,X:[158] 49152:S[176]T,A,N$(),D().:[142]
500 [151] 828,X:[158] 49152:S[176]T,D,N$(),D().:[142]
510 [151] 828,0:[158] 49152:S[176]T,A,D(),N$().:[142]
520 [151] 828,0:[158] 49152:S[176]T,D,D(),N$().:[142]
530 [143] ***SEARCHES***
540 [151] 828,X:[158] 49152:SEARCH,E,N$().:[142]
550 [151] 828,0:[158] 49152:SEARCH,H,D().:[142]
560 [151] 828,0:[158] 49152:SEARCH,L,D().:[142]
570 [151] 828,0:[158] 49152:SEARCH,E,D().:[142]
580 [133] "ANOTHER OPERATION? Y/N";AN$: [139] AN$[178]"Y" [167]130